
ZX8116K Tutti Frutti 


C hi ha detto che la grafica dello ZX81 è scarsa 
non ha mai avuto l'occasione di vedere un pro¬ 
gramma come questo: una slot machine a tre tamburi 
studiata graficamente per un effetto notevole, senza 
ricorrere a schede di alta risoluzione o linguaggio 


macchina. Con delle linee di print disegniamo la 
slot madiine, lasciando bianchi i tre spazi destinati 
ai disegni dei simboli, selezionati fra sei possibili. Con 
dei « prìm at » facciamo stampare nei tre riquadri i 
disegni, ottenendo una velocità di svolgimento del 


IL PROGRAMMA 


1 CLS 

2 PRINT " 

3 PRIIMT " 



i ■ 


4 PRINT 



5 PRINT iHVAJinil-SM 

6 PRINT "M., !«■»»•. 111SIIK 



3 PRINT 


9 PRINT 


10 PRINT RT S.0 
’■flT 3 , 10 ; -^i f ' ; 

11 FOR J = 1 TO © 
1& PRINT "M 


13 NEXT J 
10. PRINT " 



G I u 


15 PRINT RT 21 

15 PRINT RT 

0* 

17 

1S PRINT RT 19,0; 

10© LET R=9 
11 & LET 

120 PRINT RT 21,5;"FATE 
PO GIOCO" 



IL UOST 


±3© PRINT RT 
14© INPUT M 

15© IF M=0 THEN GOTO SSO 
160 PRINT RT 19,15;“£ ";M 

200 LET M=INT tH> 

210 FOR N=1 TO 6 
23© LET X=XNT tRND*6ì+l 

2A0 LET Y = INT tRNDfSì +1 

250 LET Z=INT tRND^SÌ+1 

260 LET B-2 

30© GOSUB ÉX*1&S3 fl000 
310 LET B=12 
330 GOSUB £Y tl0O) 4-1000 
3d0 LET B = 22 

360 GOSUB tZ*100)+100© 

361 NEXT N 



362 
365 
35 7 
□ SUB 
4. o© 
460 
4.7© 
475 
477 
460 
455 
500 


I- UH 


TO S® 


NEXT U 

IF X=1 OR Y = 1 QR Z-l THEN G 
2500 

IF XaY THEN GOTO 6tSU 
IF X=Z THEN GOTO 630 
IF Y - Z THEN GOTO 65© 

FOR N=1 TO 12 
PRINT RT 19,2;" 

PRINT AT 19,2:"Hfil PERSO" 
NEXT N 
LET R^p-H 
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Una slot machine con i fiocchi per il 
vostro ZX t Finalmente una grafica decente 
per il classico gioco da computer, 
e tutto sema una riga di Linguaggio macchina 

gioco degna di nota per un programma in Basic in 
SLOW. Potete vedere i vari simboli in giro Ira le pa¬ 
gine: fragola, bar, ciliegia, limone, arancia c campana. 
Se volete t potete interpretare il penultimo disegno 
come una mela, ma preferiamo considerarlo una pru- 


Per realizzare programmi graficamente ben 
studiati, come questo, è possibile aiutarsi con dei 
particolari fogli squadrettati secondo 
il formato video dello ZX 
Chiedeteli ailo ZX User Club! 

gna o un’albicocca, dato che stiamo parlando di Sin¬ 
clair (oltretutto le * mele » costano care!). 

Il funzionamento del programma è estremamente 
lineare: per prima cosa è disegnata la scocca della 
slot, una volta sola per tutte le giocate, quindi vi è 


51© PRINT RT X9,2a.;''£ ";P 
SIS PftINT RT 19,ar 

GOTO 120 



360 IF P<0 THEN GOTO 57© 

570 IF P=0 THEN GOTO 69© 

580 IF P>0 THEN GOTO 710 

590 GOTO 100O 

500 IF Y^Z THEN GOTO 73© 

510 IF Y=i THEN GOTO 620 

SE© GOTO 1010 

530 IF Z-ì THEN GOTO 62© 

54© GOTO 47© 

55© IF Z=1 THEN GOTO 820 
550 GOTO 1010 

570 PRINT RT 21, 1; ,l pfiGR TUTTO; 

E S6RIGRTX 
330 GOTO 100© 

69© print RT 21;1;" SEI NftTO MR 
LE,,,,, M 


700 GOTO 100© 

71© PRINT RT 21;li"RACCOGLI LE 
TUE VINCITE 
720 GOTO 100© 

73© IF £=2 THEN GOTO 73© 

74© POR N=1 TO 12 

745 PRINT RT 19.,a; “5EI IL PIU 11 
FORTE ,1 


746 PRINT RT 19;2.:" 

* i 

NEXT N 

POR N=1 TO ìa 
PRINT RT 19.,2; UXNTO 

PRINT RT 19J.2; " 

NEXT N 

LET P = ( C (1 B*Hì +H) 

GOTO 510 
POR N=1 TO 12 
PRINT RT 19;S;”dRCKPOT 

PRINT RT 19., a;*' 

NEXT N 



a©0 LET P~ltt100*H)+HJ+P) 
51© GOTO 510 

82© PRINT RT 19 ^ 3;; ‘'RITENTR 

3d0 LET P= ( ( 15 *-M> +N> +PÌ 
350 GOTO S 10 
200© PAUSE 4E4. 

1005 GOTO 1 

201Q POR N=1 TO 12 

1015 PRINT RT 19>a.; "DOPPIO 

E 1 

1017 PRINT RT 19.,2; " 

i * 


74? 

750 

755 

756 

757 
760 
77© 
780 
705 


790 
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[NUl GE£MU3Grji3r-JUD GE' 


richiesta la giocata, I] solito RND provvede alla scel¬ 
ta dei frutti da visualizzare in un ciclo che si ripete 
sei volte, per simulare la rotazione dei tamburi; quin¬ 
di, secondo le usuali regole di gioco delle slot, vi 
vene comunicato l'esito della giocata. Potete anche 
essere cosi fortunati da imbroccare il random giusto 
per entrare nella routine di NUDGE. che vi permette 
di far ripartire uno dei tamburi; A. B o C seguito 
da N/L per la selezione o N/L per rifiutare l'offerta, 

131S NEXT N 

13gQ LET P = t ( <2*M) *HJ +P) 

-■ GOTO S10 

ut-1.. b,; 

g-f!-: 1 j RT FM-3 .B; '-*■1*1 RT fi+*, 

b" 4 ' r+s d B 

i1S0 RETURN 

ia00^PR^ RT R * B; j, 


; RT R+6 . B~] 


rRTE il vostro gioco 


” ; RT ft+T., B,; "J 



1550 RETURN _ 

13©0 PRINT RT R,B; 

S_.+ 1 b MBUM 1 ' ; RT Rf^. 6 ; '‘ÉTh 

RT R+3.B; ,l H ™ rt r +4 , 

1RT R+S ,8 ; » ; RT R + 7,6 . 


1350 RETURN 

U00^pp^^ rt r j b; 


L'unica raccomandazione è quella di aver pazien¬ 
za quando caricate il listato. Date RUN 2000 per il 
SAVE automatico con autostarl del programma. 

Queste pagine sono state realizzate in collaborazio¬ 
ne con due dei nostri lettori che qui vogliamo segna¬ 
lare e ringraziare: si tratta di Francesco Molò (di S. 
Benedetto del Tronto) e Sandro Bettella (di Milano) 
cui è stalo già spedilo a casa un premio in materiale 
elettronico. Come si vede, chiunque può guadagnarlo! 


14-50 
15.00 
R + l j 


B ; "J 


RETURN 

? fiTfl+3^f^r ; ^ rr 


“ . RT 
" ; RT fi ■i-a j. B ; “HT 
P %- l J RT R+d 


: RT R -t-6 . B ; , 


RT R-f5 . B; " 


.; RT R +■?, B ; " 


1550 RETURN __ 

1S0B PRINT RTfi ■ B ; "W* ^ ■ UIMl " ; RT 

TH5" ^ RT fi +3"!^^^’ ^ R + » : ' L ? RT R+d, 

M.: RT RtS j B; "Mfc sStt' 

RT Ih r6 , BfHj. ^■".tRT R-t-T, ÈTTI 


1550 RETURN 

230© SRUE "SLOT MRCH1NE" 
231© GOTO 1 
2500 PRINT RT SI,6," 


j RT H -f S i B ; M j 


; RT ft 4 -t ej^l 


05 10 

f?SS0 
3530 
& t>40 
2550 
3000 
3005 
30 10 
3030 
30 3 5 
3040 
4-000 
4 305 
4 010 
4030 
4 340 
4050 
3300 
50Q5 
5010 
503© 
? 04 0 
5050 


NUDOESNUDGC 


INPUT C$ 

IF THEN GOSUB 3000 

IF 0$ = ’'©“ THEN GOSUB 4000 

IF C$ = "C’ 1 THEN GOSUB 5000 

RETURN 

LET B=2 

POR N=1 TO 6 

LET X = INT (RHOffiJ +1 

GOSUB C±00*X> +1000 

NEXT N 

RETURN 

LET 6=12 

FOR N=1 TO S 

LET V = INT (RND+6J +1 

GOSUB C100SY)+100© 

NEXT N 
RETURN 
LET B=22 
FOR N=1 TO & 

LET Z=INT (RND *6 j +1 
GOSUB tl00*Zl+100© 

NEXT N 
RETURN 
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